Canon Creative 3/Canon Creative 3 - Disc 2.iso/designe/DE.DIR/00136.ls

Text File | 1997-05-08 | 488 b | 20 lines

on stripPath moovy
  if moovy contains "\" then
    set moovyLen to length(moovy)
    repeat with i = 1 to moovyLen
      if char i of moovy = "\" then
        put ":" into char i of moovy
      end if
    end repeat
  end if
  if not moovy contains ":" then
    return moovy
  end if
  set myMoovy to moovy
  repeat while myMoovy contains ":"
    set colonIndex to offset(":", myMoovy)
    set myMoovy to chars(myMoovy, colonIndex + 1, length(myMoovy))
  end repeat
  return myMoovy
end